home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / SAMPLES2.PAK / EQUIPMNT.MNU < prev    next >
Encoding:
Text File  |  1995-07-18  |  2.0 KB  |  74 lines
  1. ******************************************************************************
  2. *  PROGRAM:      Equipmnt.mnu
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         12/93
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  REVISION:     $Revision:   1.22  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *  DESCRIPTION:  This is a menu file used by Equipmnt.wfm. This
  15. *                Menu will allow you to make a flight selection of different
  16. *                flights of the AirBorland airlines.
  17. *
  18. *  PARAMETERS:   F -- the form to which this menu will belong.
  19. *
  20. *  CALLS:        None
  21. *
  22. *  USAGE:        form.menuFile = "Equipmnt.mnu"
  23. *
  24. *******************************************************************************
  25. ** END HEADER -- do not remove this line*
  26. * Generated on 05/06/94
  27. *
  28. Parameter FormObj
  29. NEW EQUIPMNTMENU(FormObj,"Root")
  30. CLASS EQUIPMNTMENU(FormObj,Name) OF MENUBAR(FormObj,Name)
  31.    this.Text = ""
  32.  
  33.    DEFINE MENU FILE OF THIS;
  34.        PROPERTY;
  35.          Text "&File"
  36.  
  37.          DEFINE MENU EXIT OF THIS.FILE;
  38.              PROPERTY;
  39.                OnClick {;form.Release()},;
  40.                Text "E&xit",;
  41.                Shortcut "CTRL-Q"
  42.  
  43.    DEFINE MENU EQUIPMENT OF THIS;
  44.        PROPERTY;
  45.          Text "&Equipment"
  46.  
  47.          DEFINE MENU SELECT_FLIGHTS OF THIS.EQUIPMENT;
  48.              PROPERTY;
  49.                OnClick CLASS::GETFLIGHTS,;
  50.                Text "&Select Flights",;
  51.                Shortcut "CTRL-S"
  52.  
  53.    procedure GetFlights
  54.  
  55.    * Open modally the form that allows selection of different flights.
  56.    * Update main form (equipmnt.wfm) depending on selections made.
  57.    *******************************************************************************
  58.    local getFltsForm, selected
  59.  
  60.    set procedure to &_dbwinhome.samples\GetFlts.wfm  additive
  61.  
  62.    getFltsForm = new GetFltsForm()
  63.    getFltsForm.mdi = .f.
  64.    getFltsForm.Readmodal()
  65.  
  66.    getFltsForm.Release()
  67.    close procedure &_dbwinhome.samples\Getflts.wfm
  68.  
  69.    show object form.flightsBrowse
  70.    show object form.planeEntry
  71.  
  72. ENDCLASS
  73.  
  74.